unit UInterfaces;

interface
  uses
    UGenerica, UPais, UFrmConsultaPais, UCor, UFrmConsultaCor, UCidade, UEstado,
    UFrmConsultaEstado, UFrmConsultaCidade,UFrmConsultaUsuario,UUsuario,UMarca,UFrmConsultaMarca;

  type
    Interfaces = class

protected
    umFrmConsultaPais   : TFrmConsultaPais;
    umFrmConsultaCor    :TFrmConsultaCor;
    umFrmConsultaCidade :TFrmConsultaCidade;
    umFrmConsultaEstado :TFrmConsultaEstado;
    umfrmConsultaUsuario : TfrmconsultaUsuario;
    umFrmConsultaMarca : TfrmconsultaMarca;
public
    constructor Create;
    destructor Destroy;
    procedure pecaDadosPais   (vPais    : Pais  );
    procedure pecaDadosCor    (vCor     : Cor   );
    procedure pecaDadosCidade (vCidade  : Cidade);
    procedure pecaDadosEstado (vEstado  : Estado);
    procedure pecaDadosUsuario (vUsuario : Usuario);
    procedure pecaDadosMarca (vMarca : Marca);

end;

implementation

{ Interfaces }

constructor Interfaces.Create;
begin
    umFrmConsultaPais   := TFrmConsultaPais.Create(nil);
    umFrmConsultaCor    := TFrmConsultaCor.Create(nil);
    umFrmConsultaCidade := TFrmConsultaCidade.Create(nil);
    umFrmConsultaEstado := TFrmConsultaEstado.Create(nil);
    umfrmConsultaUsuario := TFrmConsultaUsuario.Create(nil);
    umfrmConsultaMarca := TFrmConsultaMarca.Create(nil);

end;

destructor Interfaces.Destroy;
begin
    umFrmConsultaPais.Destroy;
    umFrmConsultaCor.Destroy;
    umFrmConsultaCidade.Destroy;
    umFrmConsultaEstado.Destroy;
    umfrmConsultaUsuario.Destroy;
    umfrmConsultaMarca.Destroy;
end;

procedure Interfaces.pecaDadosCidade(vCidade: Cidade);
begin
    umFrmConsultaCidade.ConhecaObj(vCidade);
    umFrmConsultaCidade.ShowModal;
end;

procedure Interfaces.pecaDadosCor(vCor: Cor);
begin
    umFrmConsultaCor.ConhecaObj(vCor);
    umFrmConsultaCor.ShowModal;
end;

procedure Interfaces.pecaDadosEstado(vEstado: Estado);
begin
    umFrmConsultaEstado.ConhecaObj(vEstado);
    umFrmConsultaEstado.ShowModal;
end;

procedure Interfaces.pecaDadosMarca(vMarca: Marca);
begin
     umFrmConsultaMarca.ConhecaObj(vMarca);
     umFrmConsultaMarca.ShowModal;
end;

procedure Interfaces.pecaDadosPais(vPais: Pais);
begin
    umFrmConsultaPais.conhecaObj (vPais);
    umFrmConsultaPais.ShowModal;
end;

procedure Interfaces.pecaDadosUsuario(vUsuario: Usuario);
begin
  umfrmConsultaUsuario.ConhecaObj(vUsuario);
  umfrmConsultaUsuario.ShowModal;
end;

end.

